home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 2.1 KB | 102 lines | [TEXT/MPS ] |
- ;
- ; File: Timer.a
- ;
- ; Contains: Time Manager interfaces.
- ;
- ; Version: Technology: System 7.5
- ; Release: Universal Interfaces 3.0d3 on Copland DR1
- ;
- ; Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, send the file and version
- ; information (from above) and the problem description to:
- ;
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
- IF &TYPE('__TIMER__') = 'UNDEFINED' THEN
- __TIMER__ SET 1
-
- IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
- include 'ConditionalMacros.a'
- ENDIF
- IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
- include 'Types.a'
- ENDIF
- IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
- include 'OSUtils.a'
- ENDIF
- IF FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED THEN
-
- ; high bit of qType is set if task is active
- kTMTaskActive EQU $00008000
- TMTask RECORD 0
- qLink ds.l 1 ; offset: $0 (0)
- qType ds.w 1 ; offset: $4 (4)
- tmAddr ds.l 1 ; offset: $6 (6)
- tmCount ds.l 1 ; offset: $A (10)
- tmWakeUp ds.l 1 ; offset: $E (14)
- tmReserved ds.l 1 ; offset: $12 (18)
- sizeof EQU * ; size: $16 (22)
- ENDR
- ; typedef struct TMTask * TMTaskPtr
-
- ;
- ; pascal void InsTime(QElemPtr tmTaskPtr)
- ;
- IF ¬ GENERATINGCFM THEN
- ; parameters:
- ; tmTaskPtr => A0
- _InsTime: OPWORD $A058
- ELSE
- IMPORT_CFM_FUNCTION InsTime
- ENDIF
-
- ;
- ; pascal void InsXTime(QElemPtr tmTaskPtr)
- ;
- IF ¬ GENERATINGCFM THEN
- ; parameters:
- ; tmTaskPtr => A0
- _InsXTime: OPWORD $A458
- ELSE
- IMPORT_CFM_FUNCTION InsXTime
- ENDIF
-
- ;
- ; pascal void PrimeTime(QElemPtr tmTaskPtr, long count)
- ;
- IF ¬ GENERATINGCFM THEN
- ; parameters:
- ; tmTaskPtr => A0
- ; count => D0
- _PrimeTime: OPWORD $A05A
- ELSE
- IMPORT_CFM_FUNCTION PrimeTime
- ENDIF
-
- ;
- ; pascal void RmvTime(QElemPtr tmTaskPtr)
- ;
- IF ¬ GENERATINGCFM THEN
- ; parameters:
- ; tmTaskPtr => A0
- _RmvTime: OPWORD $A059
- ELSE
- IMPORT_CFM_FUNCTION RmvTime
- ENDIF
-
- ;
- ; pascal void Microseconds(UnsignedWide *microTickCount)
- ;
- IF ¬ GENERATINGCFM THEN
- _Microseconds: OPWORD $A193
- ELSE
- IMPORT_CFM_FUNCTION Microseconds
- ENDIF
-
- ENDIF
- ENDIF ; __TIMER__
-
-